home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.0 / PInterfaces / ToolUtils.p < prev    next >
Encoding:
Text File  |  1995-04-18  |  4.4 KB  |  203 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        ToolUtils.p
  3.  
  4.      Contains:    Toolbox Utilities Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT ToolUtils;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __TOOLUTILS__}
  30. {$SETC __TOOLUTILS__ := 1}
  31.  
  32. {$I+}
  33. {$SETC ToolUtilsIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$IFC UNDEFINED __TYPES__}
  38. {$I Types.p}
  39. {$ENDC}
  40. {    ConditionalMacros.p                                            }
  41.  
  42. {$IFC UNDEFINED __QUICKDRAW__}
  43. {$I Quickdraw.p}
  44. {$ENDC}
  45. {    MixedMode.p                                                    }
  46. {    QuickdrawText.p                                                }
  47.  
  48. {$IFC UNDEFINED __OSUTILS__}
  49. {$I OSUtils.p}
  50. {$ENDC}
  51. {    Memory.p                                                    }
  52.  
  53. {$IFC UNDEFINED __TEXTUTILS__}
  54. {$I TextUtils.p}
  55. {$ENDC}
  56. {    Script.p                                                    }
  57. {        IntlResources.p                                            }
  58. {        Events.p                                                }
  59.  
  60. {$IFC UNDEFINED __FIXMATH__}
  61. {$I FixMath.p}
  62. {$ENDC}
  63.  
  64. {$PUSH}
  65. {$ALIGN MAC68K}
  66. {$LibExport+}
  67.  
  68. CONST
  69.     sysPatListID                = 0;
  70.     iBeamCursor                    = 1;
  71.     crossCursor                    = 2;
  72.     plusCursor                    = 3;
  73.     watchCursor                    = 4;
  74.  
  75.  
  76. TYPE
  77.     Int64Bit = RECORD
  78.         hiLong:                    LONGINT;
  79.         loLong:                    LONGINT;
  80.     END;
  81.  
  82.  
  83. FUNCTION FixRatio(numer: INTEGER; denom: INTEGER): Fixed;
  84.     {$IFC NOT GENERATINGCFM}
  85.     INLINE $A869;
  86.     {$ENDC}
  87. FUNCTION FixMul(a: Fixed; b: Fixed): Fixed;
  88.     {$IFC NOT GENERATINGCFM}
  89.     INLINE $A868;
  90.     {$ENDC}
  91. FUNCTION FixRound(x: Fixed): INTEGER;
  92.     {$IFC NOT GENERATINGCFM}
  93.     INLINE $A86C;
  94.     {$ENDC}
  95. PROCEDURE PackBits(VAR srcPtr: Ptr; VAR dstPtr: Ptr; srcBytes: INTEGER);
  96.     {$IFC NOT GENERATINGCFM}
  97.     INLINE $A8CF;
  98.     {$ENDC}
  99. PROCEDURE UnpackBits(VAR srcPtr: Ptr; VAR dstPtr: Ptr; dstBytes: INTEGER);
  100.     {$IFC NOT GENERATINGCFM}
  101.     INLINE $A8D0;
  102.     {$ENDC}
  103. FUNCTION BitTst(bytePtr: UNIV Ptr; bitNum: LONGINT): BOOLEAN;
  104.     {$IFC NOT GENERATINGCFM}
  105.     INLINE $A85D;
  106.     {$ENDC}
  107. PROCEDURE BitSet(bytePtr: UNIV Ptr; bitNum: LONGINT);
  108.     {$IFC NOT GENERATINGCFM}
  109.     INLINE $A85E;
  110.     {$ENDC}
  111. PROCEDURE BitClr(bytePtr: UNIV Ptr; bitNum: LONGINT);
  112.     {$IFC NOT GENERATINGCFM}
  113.     INLINE $A85F;
  114.     {$ENDC}
  115. FUNCTION BitAnd(value1: LONGINT; value2: LONGINT): LONGINT;
  116.     {$IFC NOT GENERATINGCFM}
  117.     INLINE $A858;
  118.     {$ENDC}
  119. FUNCTION BitOr(value1: LONGINT; value2: LONGINT): LONGINT;
  120.     {$IFC NOT GENERATINGCFM}
  121.     INLINE $A85B;
  122.     {$ENDC}
  123. FUNCTION BitXor(value1: LONGINT; value2: LONGINT): LONGINT;
  124.     {$IFC NOT GENERATINGCFM}
  125.     INLINE $A859;
  126.     {$ENDC}
  127. FUNCTION BitNot(value: LONGINT): LONGINT;
  128.     {$IFC NOT GENERATINGCFM}
  129.     INLINE $A85A;
  130.     {$ENDC}
  131. FUNCTION BitShift(value: LONGINT; count: INTEGER): LONGINT;
  132.     {$IFC NOT GENERATINGCFM}
  133.     INLINE $A85C;
  134.     {$ENDC}
  135. {$IFC GENERATING68K }
  136. PROCEDURE LongMul(a: LONGINT; b: LONGINT; VAR result: Int64Bit);
  137.     {$IFC NOT GENERATINGCFM}
  138.     INLINE $A867;
  139.     {$ENDC}
  140. {$ENDC}
  141. {$IFC OLDROUTINELOCATIONS }
  142. FUNCTION GetIcon(iconID: INTEGER): Handle;
  143.     {$IFC NOT GENERATINGCFM}
  144.     INLINE $A9BB;
  145.     {$ENDC}
  146. PROCEDURE PlotIcon({CONST}VAR theRect: Rect; theIcon: Handle);
  147.     {$IFC NOT GENERATINGCFM}
  148.     INLINE $A94B;
  149.     {$ENDC}
  150. {$ENDC}
  151. FUNCTION GetPattern(patternID: INTEGER): PatHandle;
  152.     {$IFC NOT GENERATINGCFM}
  153.     INLINE $A9B8;
  154.     {$ENDC}
  155. FUNCTION GetCursor(cursorID: INTEGER): CursHandle;
  156.     {$IFC NOT GENERATINGCFM}
  157.     INLINE $A9B9;
  158.     {$ENDC}
  159. FUNCTION GetPicture(pictureID: INTEGER): PicHandle;
  160.     {$IFC NOT GENERATINGCFM}
  161.     INLINE $A9BC;
  162.     {$ENDC}
  163. FUNCTION SlopeFromAngle(angle: INTEGER): Fixed;
  164.     {$IFC NOT GENERATINGCFM}
  165.     INLINE $A8BC;
  166.     {$ENDC}
  167. FUNCTION AngleFromSlope(slope: Fixed): INTEGER;
  168.     {$IFC NOT GENERATINGCFM}
  169.     INLINE $A8C4;
  170.     {$ENDC}
  171. FUNCTION DeltaPoint(ptA: Point; ptB: Point): LONGINT;
  172.     {$IFC NOT GENERATINGCFM}
  173.     INLINE $A94F;
  174.     {$ENDC}
  175. PROCEDURE ShieldCursor({CONST}VAR shieldRect: Rect; offsetPt: Point);
  176.     {$IFC NOT GENERATINGCFM}
  177.     INLINE $A855;
  178.     {$ENDC}
  179. PROCEDURE ScreenRes(VAR scrnHRes: INTEGER; VAR scrnVRes: INTEGER);
  180.     {$IFC NOT GENERATINGCFM}
  181.     INLINE $225F, $32B8, $0102, $225F, $32B8, $0104;
  182.     {$ENDC}
  183. PROCEDURE GetIndPattern(VAR thePat: Pattern; patternListID: INTEGER; index: INTEGER);
  184. FUNCTION HiWord(x: LONGINT): INTEGER;
  185.     {$IFC NOT GENERATINGCFM}
  186.     INLINE $A86A;
  187.     {$ENDC}
  188. FUNCTION LoWord(x: LONGINT): INTEGER;
  189.     {$IFC NOT GENERATINGCFM}
  190.     INLINE $A86B;
  191.     {$ENDC}
  192.  
  193. {$ALIGN RESET}
  194. {$POP}
  195.  
  196. {$SETC UsingIncludes := ToolUtilsIncludes}
  197.  
  198. {$ENDC} {__TOOLUTILS__}
  199.  
  200. {$IFC NOT UsingIncludes}
  201.  END.
  202. {$ENDC}
  203.